home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / asmmacros / am_02 / waitforchar.i < prev    next >
Text File  |  1995-03-19  |  627b  |  24 lines
  1.      NOLIST
  2. WaitForChar  MACRO             ; 15 Sept 88
  3. *------------------------------; Start of WaitForChar macro.
  4.                                ; Put file handle in D1.
  5.      NOLIST
  6.      IFEQ ReEntrant-1
  7.      LIST
  8.      MOVE.L \1(A5),D1
  9.      NOLIST
  10.      ENDC
  11.      IFNE ReEntrant-1
  12.      LIST
  13.      MOVE.L \1,D1
  14.      NOLIST
  15.      ENDC
  16.      LIST
  17.                                ; Put timeout in D2.
  18.      MOVE.L #\2*10000,D2
  19.      CallLib WaitForChar,dos   ; Call WaitForChar.
  20.      TST.L D0                  ; Make the Z-flag indicate char availability.
  21. *------------------------------; End of WaitForChar macro.
  22.      ENDM
  23.      LIST
  24.